inherited FRelatorioProdutoFornecedor: TFRelatorioProdutoFornecedor
  Left = -10
  Top = 112
  Caption = 'Relat'#243'rio Produto por Fornecedor'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited QuickRep1: TQuickRep
    Left = -8
    DataSet = FPesquisaProduto.QPesquisa
    Functions.DATA = (
      '0'
      '0'
      #39#39)
    Page.Values = (
      100.0125
      2970
      100.0125
      2100
      100.0125
      100.0125
      0)
    inherited QRBand1: TQRBand
      Height = 133
      Size.Values = (
        351.895833333333
        1899.70833333333)
      inherited QRLabel1: TQRLabel
        Left = 632
        Size.Values = (
          44.9791666666667
          1672.16666666667
          84.6666666666667
          84.6666666666667)
        FontSize = 8
      end
      inherited QRLabel2: TQRLabel
        Left = 632
        Size.Values = (
          44.9791666666667
          1672.16666666667
          44.9791666666667
          103.1875)
        FontSize = 8
      end
      inherited QRSysData1: TQRSysData
        Left = 673
        Width = 7
        Size.Values = (
          44.9791666666667
          1780.64583333333
          44.9791666666667
          18.5208333333333)
        FontSize = 8
      end
      inherited QRSysData2: TQRSysData
        Left = 673
        Width = 55
        Size.Values = (
          44.9791666666667
          1780.64583333333
          84.6666666666667
          145.520833333333)
        FontSize = 8
      end
      inherited QRLabel3: TQRLabel
        Left = 632
        Size.Values = (
          44.9791666666667
          1672.16666666667
          124.354166666667
          87.3125)
        FontSize = 8
      end
      inherited QRSysData3: TQRSysData
        Left = 673
        Width = 28
        Size.Values = (
          44.9791666666667
          1780.64583333333
          124.354166666667
          74.0833333333333)
        FontSize = 8
      end
      inherited QRShLinhaSuperiror: TQRShape
        Top = 105
        Size.Values = (
          2.64583333333333
          0
          277.8125
          1952.625)
      end
      inherited QRLNomeEmpresa: TQRLabel
        Size.Values = (
          52.9166666666667
          13.2291666666667
          44.9791666666667
          235.479166666667)
        FontSize = 12
      end
      inherited QRLNomeRelatorio: TQRLabel
        Width = 488
        Size.Values = (
          52.9166666666667
          13.2291666666667
          209.020833333333
          1291.16666666667)
        Caption = 'LISTAGEM DO CADASTRO DE PRODUTOS POR FORNECEDOR'
        FontSize = 12
      end
      inherited QRImage: TQRImage
        Left = 236
        Top = 67
        Size.Values = (
          44.9791666666667
          624.416666666667
          177.270833333333
          47.625)
      end
      inherited QRLLancamento: TQRLabel
        Left = 500
        Width = 58
        Size.Values = (
          44.9791666666667
          1322.91666666667
          209.020833333333
          153.458333333333)
        Caption = '                   '
        FontSize = 8
      end
      inherited QRLData: TQRLabel
        Size.Values = (
          44.9791666666667
          1492.25
          209.020833333333
          121.708333333333)
        FontSize = 8
      end
      inherited QRLSistemaModulo: TQRLabel
        Width = 292
        Size.Values = (
          55.5625
          13.2291666666667
          108.479166666667
          772.583333333333)
        Caption = 'GEST'#195'O EMPRESARIAL / CADASTRO'
        FontSize = 12
      end
      object QRLabel5: TQRLabel [13]
        Left = 3
        Top = 108
        Width = 34
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          7.9375
          285.75
          89.9583333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Codigo'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel6: TQRLabel [14]
        Left = 46
        Top = 108
        Width = 90
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          121.708333333333
          285.75
          238.125)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Descri'#231#227'o Entrada'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel8: TQRLabel [15]
        Left = 251
        Top = 108
        Width = 18
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          664.104166666667
          285.75
          47.625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Ref'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel9: TQRLabel [16]
        Left = 421
        Top = 108
        Width = 22
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1113.89583333333
          285.75
          58.2083333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Unid'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel17: TQRLabel [17]
        Left = 447
        Top = 108
        Width = 21
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1182.6875
          285.75
          55.5625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Tipo'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel18: TQRLabel [18]
        Left = 495
        Top = 108
        Width = 45
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1309.6875
          285.75
          119.0625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Natureza'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel19: TQRLabel [19]
        Left = 649
        Top = 108
        Width = 64
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1717.14583333333
          285.75
          169.333333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Pre'#231'o Venda'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel7: TQRLabel [20]
        Left = 577
        Top = 108
        Width = 69
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1526.64583333333
          285.75
          182.5625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Pre'#231'o Compra'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      inherited QRShLinhaInferiror: TQRShape
        Top = 128
        Size.Values = (
          2.64583333333333
          0
          338.666666666667
          1952.625)
      end
    end
    inherited QRBEmp: TQRBand
      Top = 213
      Size.Values = (
        55.5625
        1899.70833333333)
      inherited QREmp: TQRLabel
        Size.Values = (
          44.9791666666667
          0
          5.29166666666667
          171.979166666667)
        FontSize = 10
      end
    end
    object QRBand2: TQRBand
      Left = 38
      Top = 192
      Width = 718
      Height = 21
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        55.5625
        1899.70833333333)
      BandType = rbDetail
      object QRDBText1: TQRDBText
        Left = 2
        Top = 0
        Width = 40
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          5.29166666666667
          0
          105.833333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        DataSet = FPesquisaProduto.QPesquisa
        DataField = 'CODIGO'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 7
      end
      object QRDBText2: TQRDBText
        Left = 45
        Top = 0
        Width = 202
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          119.0625
          0
          534.458333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        DataSet = FPesquisaProduto.QPesquisa
        DataField = 'DESCRICAOENTRADA'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 7
      end
      object QRDBText3: TQRDBText
        Left = 249
        Top = 0
        Width = 170
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          658.8125
          0
          449.791666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        DataSet = FPesquisaProduto.QPesquisa
        DataField = 'REFERENCIA'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 7
      end
      object QRDBText5: TQRDBText
        Left = 421
        Top = 0
        Width = 20
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1113.89583333333
          0
          52.9166666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        DataSet = FPesquisaProduto.QPesquisa
        DataField = 'UNIDADE'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 7
      end
      object QRDBText4: TQRDBText
        Left = 591
        Top = 0
        Width = 56
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1563.6875
          0
          148.166666666667)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        DataSet = FPesquisaProduto.QPesquisa
        DataField = 'PRECOCOMPRA'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        Mask = '0.,00'
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 7
      end
      object QRDBText6: TQRDBText
        Left = 657
        Top = 0
        Width = 56
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1738.3125
          0
          148.166666666667)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        DataSet = FPesquisaProduto.QPesquisa
        DataField = 'PRECOVENDA'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        Mask = '0.,00'
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 7
      end
      object QRExpr2: TQRExpr
        Left = 447
        Top = 0
        Width = 47
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1182.6875
          0
          124.354166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        Color = clWhite
        ParentFont = False
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'If(QPesquisa.PROD_TIPO = 0, '#39'Mercadoria'#39','#39'Servi'#231'o'#39')'
        FontSize = 7
      end
      object QRExpr3: TQRExpr
        Left = 496
        Top = 0
        Width = 92
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1312.33333333333
          0
          243.416666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        Color = clWhite
        ParentFont = False
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 
          'If(QPesquisa.NATUREZA = 0, '#39'Compra e Venda'#39', If(QPesquisa.NATURE' +
          'ZA = 1,'#39'Compra'#39',If(QPesquisa.NATUREZA = 2,'#39'Venda'#39','#39'Terceiros'#39' ))' +
          ' )'
        FontSize = 7
      end
    end
    object QRGroup1: TQRGroup
      Left = 38
      Top = 171
      Width = 718
      Height = 21
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = True
      Size.Values = (
        55.5625
        1899.70833333333)
      Expression = 'QPesquisa.FORNECEDOR'
      Master = QuickRep1
      ReprintOnNewPage = False
      object QRExpr1: TQRExpr
        Left = 3
        Top = 0
        Width = 710
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          7.9375
          0
          1878.54166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Color = clWhite
        ParentFont = False
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 
          'IF( QPesquisa.FORNECEDOR <> '#39#39',QPesquisa.FORNECEDOR,'#39'PRODUTOS SE' +
          'M FORNECEDOR'#39')'
        FontSize = 8
      end
    end
  end
  inherited QRelatorio: TQuery
    SQL.Strings = (
      
        'Select Prod_Codigo as Codigo, Prod_DescricaoEnt as DescricaoEntr' +
        'ada ,Prod_referencia as referencia,'
      
        'Prod_UnidSaida as Unidade,Forn_Razao as Fornecedor,Prod_Natureza' +
        ' as Natureza,Prod_ValorCompra as PrecoCompra,Prod_Valor as Preco' +
        'Venda,Prod_Tipo,'
      'Prod_ClassifProd1,Prod_ClassifProd2,Prod_ClassifProd3'
      ''
      'from  produto'
      
        '     Left join produtofornecedor on Prod_codigo = PRODFORN_produ' +
        'to'
      '     Left join Fornecedor on Forn_codigo = PRODFORN_FORNECEDOR'
      ''
      'Order by Prod_DescricaoEnt'
      ';')
  end
end
